/*convert( [], [] ).
convert( [A|R], [B|Q] ) :- parse( R, Q ), translate( A, B ).

translate( a, b ).
translate( b, c ).
translate( c, d ).

printa([X|R]) :- write(X), write(' '), printa(R).
printa([]).*/

pregunta :- write('que quiere hacer: comer, dormir, gato ?'), read(R), ejecuta(R).

ejecuta( comer ) :- write( 'Yummy!' ), !.
ejecuta( dormir ) :- write('ZZZZzzzzz'), !.
ejecuta( gato ) :- write('Miau'), !.
ejecuta( _ ) :- write('No entiendo...'), nl, pregunta.

